รายละเอียดของการตอบ ::
first ...my opinion
Dim conn As SqlConnection = GetConn()
conn.ConnectionString = ""
conn.Open()
Str = " SELECT * FROM datamovie"
cmd = New SqlCommand(Str, conn)
ds = New DataSet
ad = New SqlDataAdapter(cmd) ' you can add cmd here first
ad.Fill(ds, "datamovie") ' your code error here because value error "" 'it is nothing or unable
Me.DataGridView1.DataSource = ds.Tables("datamovie")
conn.Dispose()
Note : your code no have relationship adapter and cmd so it is error
second .. my opinion try this
cmdStudent = conn.CreateCommand
cmdStudent.CommandText = "SELECT * FROM Student"
daStudent.SelectCommand = cmdStudent
daStudent.Fill(dsStudent, "Student")
dgStudent.DataSource = dsStudent.Tables("datamovie")
Note: cmd is command text the String