Connection = "Database=account ;Data Source=localhost;User Id=root;Password=root;Allow Zero Datetime=true"
objConn = New MySqlConnection(Connection)
objConn.Open()
Dim strSQL As String
Dim Sho As New DataTable
Dim objCmd As New MySqlCommand
strSQL = "SELECT * FROM account_num "
dtAdapter = New MySqlDataAdapter(strSQL, objConn)
dtAdapter.Fill(Sho)
If Sho.Rows.Count > 0 Then
ID.Text = Sho.Rows(0)("ID_income")
End If