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)        dgMyData.DataSource = _address
        dgMyData.Update()        myOleDbCommand.Dispose()
        myOleDbConnection.Dispose()    End Sub