Private Sub Form_Load()
Dim con As New ADODB.Connection
con.Open "provider=sqloledb.1;user id=sa;initial catalog=first"
With MSHFlexGrid1
Set .DataSource = con.Execute("select * from score")
Set .Row = 6
Set .Col = 6
con.Close
End Sub
初学vb,希望哪位大大,帮我改改