Private Sub BindData()
Dim myOleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _dbFile & _
";Extended Properties=Excel 8.0;")
Dim myOleDbCommand As OleDbCommand = New OleDbCommand("SELECT * FROM [联系人$]", myOleDbConnection)
Dim myData As OledbDataAdapter = New OledbDataAdapter(myOleDbCommand)
myData.Fill(_address)
myOleDbCommand.CommandText = "SELECT * FROM [客户$]"
myData.Fill(_customer)
myOleDbCommand.CommandText = "SELECT * FROM [合作单位$]"
myData.Fill(_collaborator)
Private Sub bnSelectFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnSelectFile.Click
If dlgOpenExcel.ShowDialog() = DialogResult.OK Then
BindData()
Button1.Visible = True
Button2.Visible = True
Button3.Visible = True
End If
End Sub