espero una pronta respuesta....
Dim cn As SqlConnection = New SqlConnection("Data Source=Flia;Initial Catalog=pubs;User Id=sa;Password=0;")
cn.Open()
Dim Ds1 As New DataSet
Dim dtemp1 As DataTable = Ds1.Tables("Employees")


dr1("FirtsName") = "juan"
dr1("LastName") = "maglieri"
dr1("BirthDate") = #10/17/1984#
dr1("HomeAdrees") = "ve"
dr1("City") = "CA"
dr1("DeptId") = "15"
dtemp1.Rows.Add(dr1)
cn.Close()