Dim LenText As Integer = 0
Dim Newtext As String = ""
If Textbox.Text <> "" Then
For LenText = 0 To Len(Textbox.Text) - 1
If (Asc(Textbox.Text.Substring(LenText, 1)) >= 48) And (Asc(Textbox.Text.Substring(LenText, 1)) <= 57) Then
Newtext += Textbox.Text.Substring(LenText, 1)
End If
Next
End If
Sub choiE()
Dim sql As String = "Select IDEmployee From Employee"
Dim cmd As New OleDbCommand(sql, connect)
Dim Adapter As New OleDbDataAdapter(cmd)
Dim data As New DataSet()
Adapter.Fill(data, "Id")
Dim p As String = data.Tables("ID").Rows(0)(0)
TbxEmployeeID.Text = p
End Sub
