现在是
Private Sub Form_Load()
    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/db1.mdb;"
    netdataserver1.LocalProt = "8888"      '服务器：侦听端口
    netdataserver1.Listen
End Sub

如何简化为
Private Sub Form_Load()
    '指定服务器上数据库的连接字符串,和服务器对外提供的监听端口
    '并打开服务器的服务...
    Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;", "8888"
End Sub
不知
Start如何编写
各位高手，能指教一下吗

在线等

public Sub start(MDBSTR as string,LOCALPROT as string)
     ConnectionString = MDBstr
     netdataserver1.LocalProt = LOCALPROT
     netdataserver1.Listen
 End Sub

 Private Sub Form_Load()
     '指定服务器上数据库的连接字符串,和服务器对外提供的监听端口
     '并打开服务器的服务...
     Start "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=cs.mdb;", "8888"
 End Sub

谢谢！麻烦在一下，由于刚学写控件，在自己写的控件加一个方法如何写代码？