Private Sub MSHFGrid_Click()

MSHFGrid.Row = MSHFGrid.RowSel

End Sub

Set ResDel = New ADODB.Recordset

ResDel.Open "delete from UserInfo where UserId="" & MSHFGrid.Text & """, Conn, 1, 2

If ResDel.State <> 0 Then ResDel.Close

ResDel.Open "select * from viewUserInfo", Conn, 1, 1

Set MSHFGrid.DataSource = ResDel

If ResDel.State <> 0 Then ResDel.Close

Set ResDel = Nothing

End If

還有什麼不懂的 可以再問我